Sub 정렬()

    Range("C3:C22").Select
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add2 Key:=Range("C3:C22"), _
                                     SortOn:=xlSortOnValues, _
                                     Order:=xlDescending, _
                                     DataOption:=xlSortNormal
    
    With ActiveSheet.Sort
        .SetRange Range("C3:C22")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub